home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / DDPLUS71.ZIP / RIPLINK.ZIP / CITY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-07-07  |  19.0 KB  |  627 lines
  1. {This file created by RIP2PAS}
  2. {May require editing before use.}
  3.  
  4. Procedure DisplayCity_Rip;
  5. Type
  6.   PointRec = record
  7.     X : word;
  8.     Y : word;
  9.   end;
  10.  
  11.   TempType = Array[1..512] of PointRec;
  12.  
  13. Var
  14.   PPoints : TempType;
  15.   tFPT    : Array[1..8] of Byte;
  16.  
  17. Begin
  18.   RIP^.RipKillMouseFields;
  19.   RIP^.RipResetWindows;
  20.   RIP^.RipTextWindow(0,36,79,42,True,1);
  21.   RIP^.RipSetPalette(0,8,41,3,25,17,11,7,56,57,31,59,32,36,4,63);
  22.   RIP^.RipWriteMode(0);
  23.   RIP^.RipColor(0);
  24.   RIP^.RipFillStyle(1,1);
  25.   RIP^.RipBar(0,0,639,134);
  26.   RIP^.RipFillStyle(1,2);
  27.   RIP^.RipBar(0,133,639,349);
  28.   RIP^.RipPixel(36,21);
  29.   RIP^.RipPixel(89,35);
  30.   RIP^.RipPixel(65,74);
  31.   RIP^.RipPixel(137,56);
  32.   RIP^.RipPixel(186,46);
  33.   RIP^.RipPixel(283,27);
  34.   RIP^.RipColor(6);
  35.   RIP^.RipPixel(140,30);
  36.   RIP^.RipPixel(183,60);
  37.   RIP^.RipPixel(88,81);
  38.   RIP^.RipPixel(31,24);
  39.   RIP^.RipPixel(22,72);
  40.   RIP^.RipPixel(32,71);
  41.   RIP^.RipPixel(32,65);
  42.   RIP^.RipPixel(235,96);
  43.   RIP^.RipPixel(346,18);
  44.   RIP^.RipPixel(230,35);
  45.   RIP^.RipPixel(297,24);
  46.   RIP^.RipPixel(297,63);
  47.   RIP^.RipPixel(330,92);
  48.   RIP^.RipPixel(405,47);
  49.   RIP^.RipPixel(448,87);
  50.   RIP^.RipPixel(460,16);
  51.   RIP^.RipPixel(479,45);
  52.   RIP^.RipPixel(519,81);
  53.   RIP^.RipPixel(555,59);
  54.   RIP^.RipPixel(593,28);
  55.   RIP^.RipPixel(622,70);
  56.   RIP^.RipPixel(622,107);
  57.   RIP^.RipSetPalette(0,8,41,3,25,17,11,7,56,57,31,59,32,20,38,63);
  58.   RIP^.RipFillStyle(1,12);
  59.   RIP^.RipBar(0,128,639,137);
  60.   RIP^.RipLineStyle(0,0,3);
  61.   RIP^.RipColor(12);
  62.   RIP^.RipLine(0,147,76,138);
  63.   RIP^.RipLine(74,137,138,142);
  64.   RIP^.RipLine(138,142,204,137);
  65.   RIP^.RipLine(202,136,278,143);
  66.   RIP^.RipLine(278,143,305,144);
  67.   RIP^.RipLine(305,144,333,140);
  68.   RIP^.RipLine(333,140,347,139);
  69.   RIP^.RipLine(347,139,534,142);
  70.   RIP^.RipLine(534,142,639,138);
  71.   RIP^.RipFill(4,139,12);
  72.   RIP^.RipFill(139,139,12);
  73.   RIP^.RipFill(302,139,12);
  74.   RIP^.RipFill(521,139,12);
  75.   RIP^.RipFillStyle(1,0);
  76.   RIP^.RipBar(11,95,32,130);
  77.   RIP^.RipBar(34,81,50,130);
  78.   RIP^.RipBar(53,99,65,133);
  79.   RIP^.RipBar(72,96,125,132);
  80.   RIP^.RipBar(81,93,117,94);
  81.   RIP^.RipBar(132,107,151,132);
  82.   RIP^.RipBar(141,91,172,134);
  83.   RIP^.RipBar(181,103,199,131);
  84.   RIP^.RipBar(209,96,219,130);
  85.   RIP^.RipBar(222,97,231,130);
  86.   RIP^.RipBar(239,115,267,130);
  87.   RIP^.RipBar(272,120,287,129);
  88.   RIP^.RipBar(255,109,333,130);
  89.   RIP^.RipBar(300,105,315,110);
  90.   RIP^.RipBar(280,103,289,109);
  91.   RIP^.RipBar(337,110,358,130);
  92.   RIP^.RipBar(364,97,390,131);
  93.   RIP^.RipBar(397,114,403,131);
  94.   RIP^.RipBar(406,114,414,132);
  95.   RIP^.RipBar(417,104,433,132);
  96.   RIP^.RipBar(440,96,477,132);
  97.   RIP^.RipBar(449,78,459,101);
  98.   RIP^.RipBar(485,111,501,132);
  99.   RIP^.RipBar(490,108,497,108);
  100.   RIP^.RipBar(512,91,515,133);
  101.   RIP^.RipBar(504,116,541,132);
  102.   RIP^.RipBar(541,116,569,132);
  103.   RIP^.RipBar(547,110,552,118);
  104.   RIP^.RipBar(524,108,536,120);
  105.   RIP^.RipBar(575,122,591,132);
  106.   RIP^.RipBar(599,89,626,133);
  107.   RIP^.RipBar(630,107,639,135);
  108.   RIP^.RipBar(0,115,14,139);
  109.   RIP^.RipBar(251,126,278,136);
  110.   RIP^.RipBar(297,131,309,136);
  111.   RIP^.RipBar(320,129,324,130);
  112.   RIP^.RipBar(26,127,47,136);
  113.   RIP^.RipBar(97,128,115,135);
  114.   RIP^.RipBar(171,125,183,131);
  115.   RIP^.RipFillStyle(1,1);
  116.   RIP^.RipBar(601,147,625,186);
  117.   RIP^.RipBar(630,146,639,173);
  118.   RIP^.RipBar(577,148,593,158);
  119.   RIP^.RipBar(504,149,568,166);
  120.   RIP^.RipBar(549,165,554,172);
  121.   RIP^.RipBar(527,165,538,173);
  122.   RIP^.RipBar(515,166,519,197);
  123.   RIP^.RipBar(487,149,501,167);
  124.   RIP^.RipBar(486,149,500,172);
  125.   RIP^.RipBar(444,151,480,187);
  126.   RIP^.RipBar(454,187,464,208);
  127.   RIP^.RipBar(420,153,434,180);
  128.   RIP^.RipBar(409,153,415,174);
  129.   RIP^.RipBar(407,153,414,174);
  130.   RIP^.RipBar(420,151,434,159);
  131.   RIP^.RipBar(421,149,434,151);
  132.   RIP^.RipBar(420,149,425,153);
  133.   RIP^.RipBar(408,150,415,158);
  134.   RIP^.RipBar(407,149,415,157);
  135.   RIP^.RipBar(397,149,404,173);
  136.   RIP^.RipBar(366,149,390,185);
  137.   RIP^.RipBar(364,149,369,185);
  138.   RIP^.RipBar(338,149,358,168);
  139.   RIP^.RipBar(241,151,334,165);
  140.   RIP^.RipBar(254,163,334,171);
  141.   RIP^.RipBar(281,168,290,177);
  142.   RIP^.RipBar(301,168,319,176);
  143.   RIP^.RipBar(209,147,219,178);
  144.   RIP^.RipBar(221,148,230,178);
  145.   RIP^.RipBar(0,157,13,181);
  146.   RIP^.RipBar(13,156,31,188);
  147.   RIP^.RipBar(30,153,44,205);
  148.   RIP^.RipBar(51,156,64,187);
  149.   RIP^.RipBar(52,151,64,161);
  150.   RIP^.RipBar(73,149,125,191);
  151.   RIP^.RipBar(78,193,120,194);
  152.   RIP^.RipBar(133,150,172,175);
  153.   RIP^.RipBar(143,162,171,191);
  154.   RIP^.RipBar(183,151,198,172);
  155.   RIP^.RipBar(170,151,185,156);
  156.   RIP^.RipColor(2);
  157.   RIP^.RipLine(81,141,139,149);
  158.   RIP^.RipLine(139,151,204,144);
  159.   RIP^.RipLine(141,152,81,146);
  160.   RIP^.RipLine(130,153,139,153);
  161.   RIP^.RipLine(126,152,121,153);
  162.   RIP^.RipLine(130,154,106,150);
  163.   RIP^.RipLine(272,148,301,152);
  164.   RIP^.RipLine(301,152,331,145);
  165.   RIP^.RipFillStyle(1,0);
  166.   RIP^.RipBar(270,247,420,261);
  167.   RIP^.RipBar(258,242,286,247);
  168.   RIP^.RipBar(259,235,275,242);
  169.   RIP^.RipBar(261,228,274,235);
  170.   RIP^.RipBar(274,228,292,236);
  171.   RIP^.RipBar(280,225,301,233);
  172.   RIP^.RipBar(274,233,287,240);
  173.   RIP^.RipBar(281,240,297,246);
  174.   RIP^.RipBar(296,245,307,247);
  175.   RIP^.RipBar(274,238,287,244);
  176.   RIP^.RipBar(263,221,271,230);
  177.   RIP^.RipBar(265,213,265,221);
  178.   RIP^.RipBar(283,213,284,223);
  179.   RIP^.RipBar(290,212,291,226);
  180.   RIP^.RipBar(272,227,275,231);
  181.   RIP^.RipBar(280,220,284,225);
  182.   RIP^.RipBar(292,223,293,223);
  183.   RIP^.RipBar(262,245,274,251);
  184.   RIP^.RipBar(264,248,274,253);
  185.   RIP^.RipBar(269,251,276,255);
  186.   RIP^.RipBar(266,257,277,258);
  187.   RIP^.RipBar(262,256,275,260);
  188.   RIP^.RipBar(259,257,276,261);
  189.   RIP^.RipBar(415,247,440,248);
  190.   RIP^.RipBar(414,248,435,250);
  191.   RIP^.RipBar(411,250,430,254);
  192.   RIP^.RipBar(419,253,426,256);
  193.   RIP^.RipBar(415,255,422,259);
  194.   RIP^.RipBar(415,257,423,258);
  195.   RIP^.RipBar(414,244,433,247);
  196.   RIP^.RipBar(430,240,435,242);
  197.   RIP^.RipBar(432,245,434,247);
  198.   RIP^.RipBar(431,237,434,245);
  199.   RIP^.RipBar(436,240,439,245);
  200.   RIP^.RipBar(374,245,403,245);
  201.   RIP^.RipBar(359,239,372,244);
  202.   RIP^.RipBar(353,236,353,245);
  203.   RIP^.RipBar(331,243,346,244);
  204.   RIP^.RipBar(312,243,330,246);
  205.   RIP^.RipBar(335,244,348,247);
  206.   RIP^.RipBar(358,245,362,246);
  207.   RIP^.RipBar(365,245,371,245);
  208.   RIP^.RipBar(350,241,353,246);
  209.   RIP^.RipBar(385,243,388,246);
  210.   RIP^.RipColor(1);
  211.   RIP^.RipLine(418,265,257,265);
  212.   RIP^.RipLineStyle(0,0,1);
  213.   RIP^.RipLine(418,268,254,268);
  214.   RIP^.RipLine(256,270,298,270);
  215.   RIP^.RipLine(259,272,304,272);
  216.   RIP^.RipLine(261,275,310,275);
  217.   RIP^.RipLine(258,278,303,278);
  218.   RIP^.RipLine(284,280,284,286);
  219.   RIP^.RipLine(296,280,296,288);
  220.   RIP^.RipLine(279,281,257,282);
  221.   RIP^.RipLine(314,271,351,271);
  222.   RIP^.RipLine(361,270,374,270);
  223.   RIP^.RipLine(362,273,373,273);
  224.   RIP^.RipLine(365,275,376,275);
  225.   RIP^.RipLine(367,272,374,272);
  226.   RIP^.RipLine(380,270,409,270);
  227.   RIP^.RipLine(392,272,396,272);
  228.   RIP^.RipFillStyle(1,1);
  229.   RIP^.RipBar(151,255,253,255);
  230.   RIP^.RipLine(252,251,126,251);
  231.   RIP^.RipLine(230,247,93,247);
  232.   RIP^.RipLine(168,241,46,241);
  233.   RIP^.RipLine(253,258,203,258);
  234.   RIP^.RipLine(253,262,206,262);
  235.   RIP^.RipLine(248,266,147,266);
  236.   RIP^.RipLine(240,269,88,269);
  237.   RIP^.RipLine(257,261,258,259);
  238.   RIP^.RipLine(253,260,213,260);
  239.   RIP^.RipLine(258,253,256,253);
  240.   RIP^.RipLine(194,258,182,258);
  241.   RIP^.RipLine(172,258,169,258);
  242.   RIP^.RipLine(195,262,180,262);
  243.   RIP^.RipLine(165,262,159,262);
  244.   RIP^.RipLine(237,272,9,277);
  245.   RIP^.RipLine(132,264,0,267);
  246.   RIP^.RipLine(130,256,0,255);
  247.   RIP^.RipLine(94,250,0,247);
  248.   RIP^.RipLine(229,276,4,292);
  249.   RIP^.RipLine(239,272,255,272);
  250.   RIP^.RipLine(243,268,251,268);
  251.   RIP^.RipLine(236,275,253,275);
  252.   RIP^.RipLine(249,278,4,302);
  253.   RIP^.RipLine(48,243,0,239);
  254.   RIP^.RipLine(24,228,94,230);
  255.   RIP^.RipLine(49,216,161,217);
  256.   RIP^.RipLine(139,225,165,225);
  257.   RIP^.RipLine(139,203,251,203);
  258.   RIP^.RipLine(184,215,216,214);
  259.   RIP^.RipLine(280,200,356,199);
  260.   RIP^.RipLine(337,208,370,208);
  261.   RIP^.RipLine(214,224,230,223);
  262.   RIP^.RipLine(195,300,320,300);
  263.   RIP^.RipLine(151,310,180,310);
  264.   RIP^.RipLine(171,298,207,296);
  265.   RIP^.RipLine(120,306,135,306);
  266.   RIP^.RipLine(51,314,80,312);
  267.   RIP^.RipLine(365,282,508,281);
  268.   RIP^.RipLine(376,297,489,298);
  269.   RIP^.RipLine(469,255,594,252);
  270.   RIP^.RipLine(490,229,601,232);
  271.   RIP^.RipLine(575,272,631,271);
  272.   RIP^.RipLine(482,238,529,238);
  273.   RIP^.RipLine(359,219,420,219);
  274.   RIP^.RipLine(517,212,616,211);
  275.   RIP^.RipLine(557,196,594,197);
  276.   RIP^.RipLine(553,183,577,183);
  277.   RIP^.RipLine(238,182,276,183);
  278.   RIP^.RipLine(328,184,348,185);
  279.   RIP^.RipLine(243,169,268,170);
  280.   RIP^.RipLine(189,180,154,183);
  281.   RIP^.RipLine(384,162,489,163);
  282.   RIP^.RipLine(406,179,453,179);
  283.   RIP^.RipLine(525,160,584,165);
  284.   RIP^.RipLine(63,168,135,171);
  285.   RIP^.RipLine(15,199,86,201);
  286.   RIP^.RipLine(209,192,375,193);
  287.   RIP^.RipLine(340,167,422,164);
  288.   RIP^.RipLine(405,203,523,201);
  289.   RIP^.RipLine(386,189,515,189);
  290.   RIP^.RipLine(366,211,468,207);
  291.   RIP^.RipLine(480,216,553,216);
  292.   RIP^.RipLine(323,226,357,227);
  293.   RIP^.RipLine(321,232,427,232);
  294.   RIP^.RipLine(400,226,475,227);
  295.   RIP^.RipLine(180,229,209,230);
  296.   RIP^.RipLine(249,206,267,206);
  297.   RIP^.RipLine(202,142,145,148);
  298.   RIP^.RipLine(87,143,116,144);
  299.   RIP^.RipLine(190,146,209,146);
  300.   RIP^.RipLine(211,140,269,148);
  301.   RIP^.RipLine(235,146,255,149);
  302.   RIP^.RipLine(281,147,315,147);
  303.   RIP^.RipLine(325,150,357,146);
  304.   RIP^.RipLine(372,147,397,150);
  305.   RIP^.RipLine(396,145,440,145);
  306.   RIP^.RipLine(476,148,498,149);
  307.   RIP^.RipLine(59,143,9,153);
  308.   RIP^.RipLine(519,146,597,146);
  309.   RIP^.RipLine(614,142,639,141);
  310.   RIP^.RipLine(67,155,111,155);
  311.   RIP^.RipLine(108,166,261,165);
  312.   RIP^.RipLine(173,178,267,178);
  313.   RIP^.RipLine(174,169,253,170);
  314.   RIP^.RipLine(174,172,234,172);
  315.   RIP^.RipLine(181,156,243,158);
  316.   RIP^.RipLine(198,147,231,147);
  317.   RIP^.RipLine(88,154,168,156);
  318.   RIP^.RipColor(2);
  319.   RIP^.RipLine(133,166,180,168);
  320.   RIP^.RipLine(72,168,137,170);
  321.   RIP^.RipLine(65,174,109,176);
  322.   RIP^.RipLine(10,167,63,168);
  323.   RIP^.RipLine(215,156,261,156);
  324.   RIP^.RipLine(254,164,304,164);
  325.   RIP^.RipLine(350,156,393,156);
  326.   RIP^.RipLine(380,164,396,164);
  327.   RIP^.RipLine(453,162,492,162);
  328.   RIP^.RipLine(526,152,565,151);
  329.   RIP^.RipLine(540,163,601,163);
  330.   RIP^.RipLine(619,166,639,166);
  331.   RIP^.RipColor(4);
  332.   RIP^.RipLine(154,207,238,206);
  333.   RIP^.RipLine(217,193,271,194);
  334.   RIP^.RipLine(291,202,342,201);
  335.   RIP^.RipLine(49,217,82,218);
  336.   RIP^.RipLine(107,221,160,218);
  337.   RIP^.RipLine(90,232,50,233);
  338.   RIP^.RipLine(236,253,98,252);
  339.   RIP^.RipLine(236,264,61,267);
  340.   RIP^.RipLine(228,260,36,261);
  341.   RIP^.RipLine(236,266,31,284);
  342.   RIP^.RipLine(231,275,5,300);
  343.   RIP^.RipLine(227,242,73,242);
  344.   RIP^.RipLine(176,235,57,239);
  345.   RIP^.RipLine(117,229,155,229);
  346.   RIP^.RipLine(78,207,144,211);
  347.   RIP^.RipLine(5,209,69,210);
  348.   RIP^.RipLine(128,197,229,198);
  349.   RIP^.RipLine(239,213,274,213);
  350.   RIP^.RipLine(215,234,244,234);
  351.   RIP^.RipLine(206,306,325,304);
  352.   RIP^.RipLine(109,316,170,320);
  353.   RIP^.RipLine(367,303,495,300);
  354.   RIP^.RipLine(455,268,511,269);
  355.   RIP^.RipLine(534,287,597,288);
  356.   RIP^.RipLine(289,186,317,186);
  357.   RIP^.RipLine(269,166,305,166);
  358.   RIP^.RipLine(100,170,115,170);
  359.   RIP^.RipLine(452,166,486,168);
  360.   RIP^.RipLine(457,174,477,174);
  361.   RIP^.RipLine(524,154,557,154);
  362.   RIP^.RipLine(532,180,614,180);
  363.   RIP^.RipLine(545,186,639,186);
  364.   RIP^.RipLine(562,205,639,204);
  365.   RIP^.RipLine(262,268,292,268);
  366.   RIP^.RipLine(385,192,425,192);
  367.   RIP^.RipLine(397,184,407,184);
  368.   RIP^.RipLine(388,177,397,177);
  369.   RIP^.RipLine(358,174,366,174);
  370.   RIP^.RipLine(299,172,311,172);
  371.   RIP^.RipLine(320,144,342,143);
  372.   RIP^.RipLine(306,148,318,147);
  373.   RIP^.RipLine(299,147,278,147);
  374.   RIP^.RipLine(286,146,233,138);
  375.   RIP^.RipLine(252,142,237,140);
  376.   RIP^.RipLine(252,144,218,142);
  377.   RIP^.RipLine(229,139,218,139);
  378.   RIP^.RipLine(233,139,210,139);
  379.   RIP^.RipLine(203,140,178,141);
  380.   RIP^.RipLine(189,141,156,144);
  381.   RIP^.RipLine(181,144,137,147);
  382.   RIP^.RipLine(147,145,114,143);
  383.   RIP^.RipLine(121,142,80,138);
  384.   RIP^.RipLine(92,139,62,139);
  385.   RIP^.RipLine(64,140,30,141);
  386.   RIP^.RipLine(40,143,0,151);
  387.   RIP^.RipLine(35,148,64,142);
  388.   RIP^.RipLine(322,145,347,142);
  389.   RIP^.RipLine(353,142,375,143);
  390.   RIP^.RipLine(380,143,411,147);
  391.   RIP^.RipLine(400,143,423,142);
  392.   RIP^.RipLine(423,142,455,144);
  393.   RIP^.RipLine(456,144,477,144);
  394.   RIP^.RipLine(467,147,485,147);
  395.   RIP^.RipLine(442,144,460,144);
  396.   RIP^.RipLine(442,148,472,148);
  397.   RIP^.RipLine(454,145,480,145);
  398.   RIP^.RipLine(489,145,508,145);
  399.   RIP^.RipLine(494,148,521,148);
  400.   RIP^.RipLine(523,146,554,146);
  401.   RIP^.RipLine(550,142,589,142);
  402.   RIP^.RipLine(589,141,639,141);
  403.   RIP^.RipLine(586,144,639,144);
  404.   RIP^.RipLine(566,146,628,146);
  405.   RIP^.RipLine(10,149,64,150);
  406.   RIP^.RipLine(32,146,66,146);
  407.   RIP^.RipLine(58,142,87,142);
  408.   RIP^.RipLine(76,139,97,139);
  409.   RIP^.RipLine(68,146,99,146);
  410.   RIP^.RipLine(70,143,89,143);
  411.   RIP^.RipLine(0,143,42,143);
  412.   RIP^.RipLine(0,144,38,146);
  413.   RIP^.RipLine(0,147,32,147);
  414.   RIP^.RipLine(0,147,26,146);
  415.   RIP^.RipLine(47,143,69,143);
  416.   RIP^.RipLine(47,142,69,142);
  417.   RIP^.RipLine(335,144,363,144);
  418.   RIP^.RipLine(399,143,432,143);
  419.   RIP^.RipLine(434,146,451,146);
  420.   RIP^.RipLine(550,144,584,144);
  421.   RIP^.RipLine(111,146,129,146);
  422.   RIP^.RipColor(13);
  423.   RIP^.RipLineStyle(0,0,3);
  424.   RIP^.RipLine(0,144,82,137);
  425.   RIP^.RipLine(0,147,81,139);
  426.   RIP^.RipLine(82,138,138,143);
  427.   RIP^.RipLine(79,139,140,144);
  428.   RIP^.RipLine(137,142,167,141);
  429.   RIP^.RipLine(141,144,163,142);
  430.   RIP^.RipLine(165,140,206,138);
  431.   RIP^.RipLine(208,138,237,138);
  432.   RIP^.RipLine(237,138,292,145);
  433.   RIP^.RipLine(202,138,219,138);
  434.   RIP^.RipLine(292,143,308,145);
  435.   RIP^.RipLine(290,146,308,146);
  436.   RIP^.RipLine(307,146,343,140);
  437.   RIP^.RipLine(287,142,295,142);
  438.   RIP^.RipLine(300,142,318,144);
  439.   RIP^.RipLine(277,141,321,143);
  440.   RIP^.RipLine(272,141,281,141);
  441.   RIP^.RipLine(340,140,373,139);
  442.   RIP^.RipLine(378,139,378,139);
  443.   RIP^.RipLine(371,139,397,142);
  444.   RIP^.RipLine(397,142,551,142);
  445.   RIP^.RipLine(552,141,639,138);
  446.   RIP^.RipFillStyle(1,14);
  447.   RIP^.RipBar(287,226,290,226);
  448.   RIP^.RipBar(294,226,297,226);
  449.   RIP^.RipColor(15);
  450.   RIP^.RipCircle(298,49,22);
  451.   RIP^.RipFillStyle(1,15);
  452.   RIP^.RipFill(302,45,15);
  453.   RIP^.RipLine(287,203,307,203);
  454.   RIP^.RipLine(281,206,313,206);
  455.   RIP^.RipLine(278,210,320,210);
  456.   RIP^.RipLine(293,214,322,214);
  457.   RIP^.RipLine(287,214,287,214);
  458.   RIP^.RipLine(287,214,286,214);
  459.   RIP^.RipLine(288,214,288,214);
  460.   RIP^.RipLine(280,214,272,214);
  461.   RIP^.RipLine(278,216,279,216);
  462.   RIP^.RipLine(275,217,281,218);
  463.   RIP^.RipLine(287,217,287,217);
  464.   RIP^.RipLine(287,217,291,217);
  465.   RIP^.RipLine(291,217,321,217);
  466.   RIP^.RipLine(278,214,309,214);
  467.   RIP^.RipLine(282,218,317,218);
  468.   RIP^.RipLine(288,223,316,223);
  469.   RIP^.RipLine(303,226,312,226);
  470.   RIP^.RipFillStyle(1,0);
  471.   RIP^.RipBar(290,216,292,225);
  472.   RIP^.RipBar(298,219,298,225);
  473.   RIP^.RipLineStyle(0,0,1);
  474.   RIP^.RipLine(282,203,312,203);
  475.   RIP^.RipLine(279,204,316,204);
  476.   RIP^.RipLine(277,205,318,205);
  477.   RIP^.RipLine(275,206,319,206);
  478.   RIP^.RipLine(318,207,275,207);
  479.   RIP^.RipLine(273,208,320,208);
  480.   RIP^.RipLine(272,210,290,210);
  481.   RIP^.RipLine(272,209,282,209);
  482.   RIP^.RipLine(272,211,285,211);
  483.   RIP^.RipLine(320,207,314,207);
  484.   RIP^.RipLine(317,219,315,219);
  485.   RIP^.RipLine(321,219,316,219);
  486.   RIP^.RipLine(318,222,314,222);
  487.   RIP^.RipLine(318,220,308,220);
  488.   RIP^.RipLine(315,223,308,223);
  489.   RIP^.RipLine(307,220,300,220);
  490.   RIP^.RipLine(271,216,276,217);
  491.   RIP^.RipLine(269,218,277,218);
  492.   RIP^.RipLine(272,219,281,219);
  493.   RIP^.RipLine(274,221,279,221);
  494.   RIP^.RipLine(308,225,313,225);
  495.   RIP^.RipLine(308,226,313,226);
  496.   RIP^.RipLine(303,228,303,228);
  497.   RIP^.RipFillStyle(1,14);
  498.   RIP^.RipBar(143,93,146,93);
  499.   RIP^.RipBar(151,93,154,93);
  500.   RIP^.RipBar(160,93,164,93);
  501.   RIP^.RipBar(167,93,169,93);
  502.   RIP^.RipGetImage(141,92,171,94);
  503.   RIP^.RipPutImage(141,95,0);
  504.   RIP^.RipPutImage(141,108,0);
  505.   RIP^.RipPutImage(445,102,0);
  506.   RIP^.RipBar(443,110,475,112);
  507.   RIP^.RipBar(444,117,474,117);
  508.   RIP^.RipBar(445,123,474,123);
  509.   RIP^.RipBar(444,115,474,115);
  510.   RIP^.RipBar(443,120,474,120);
  511.   RIP^.RipBar(443,120,476,121);
  512.   RIP^.RipBar(443,101,476,103);
  513.   RIP^.RipBar(441,97,476,98);
  514.   RIP^.RipColor(14);
  515.   RIP^.RipPixel(366,99);
  516.   RIP^.RipPixel(369,99);
  517.   RIP^.RipPixel(372,99);
  518.   RIP^.RipPixel(374,99);
  519.   RIP^.RipPixel(378,99);
  520.   RIP^.RipPixel(381,99);
  521.   RIP^.RipPixel(384,99);
  522.   RIP^.RipPixel(387,99);
  523.   RIP^.RipGetImage(364,98,389,101);
  524.   RIP^.RipPutImage(364,101,0);
  525.   RIP^.RipPutImage(364,127,0);
  526.   RIP^.RipPutImage(365,123,0);
  527.   RIP^.RipPutImage(365,119,0);
  528.   RIP^.RipPutImage(364,105,0);
  529.   RIP^.RipPutImage(365,110,0);
  530.   RIP^.RipPutImage(365,115,0);
  531.   RIP^.RipPixel(223,98);
  532.   RIP^.RipPixel(226,98);
  533.   RIP^.RipPixel(228,98);
  534.   RIP^.RipPixel(211,110);
  535.   RIP^.RipPixel(211,108);
  536.   RIP^.RipPixel(215,113);
  537.   RIP^.RipPixel(215,116);
  538.   RIP^.RipPixel(215,122);
  539.   RIP^.RipPixel(212,127);
  540.   RIP^.RipPixel(216,105);
  541.   RIP^.RipPixel(214,105);
  542.   RIP^.RipPixel(211,104);
  543.   RIP^.RipPixel(216,100);
  544.   RIP^.RipPixel(212,100);
  545.   RIP^.RipPixel(215,101);
  546.   RIP^.RipPixel(323,111);
  547.   RIP^.RipPixel(326,110);
  548.   RIP^.RipPixel(330,110);
  549.   RIP^.RipPixel(326,111);
  550.   RIP^.RipPixel(329,111);
  551.   RIP^.RipPixel(329,113);
  552.   RIP^.RipPixel(329,117);
  553.   RIP^.RipPixel(330,124);
  554.   RIP^.RipPixel(326,124);
  555.   RIP^.RipPixel(326,121);
  556.   RIP^.RipPixel(326,118);
  557.   RIP^.RipPixel(322,123);
  558.   RIP^.RipPixel(323,113);
  559.   RIP^.RipPixel(319,113);
  560.   RIP^.RipPixel(323,114);
  561.   RIP^.RipPixel(320,114);
  562.   RIP^.RipPixel(317,117);
  563.   RIP^.RipPixel(320,117);
  564.   RIP^.RipPixel(320,119);
  565.   RIP^.RipPixel(316,127);
  566.   RIP^.RipPixel(328,128);
  567.   RIP^.RipPixel(319,128);
  568.   RIP^.RipPixel(322,126);
  569.   RIP^.RipPixel(316,121);
  570.   RIP^.RipPixel(324,116);
  571.   RIP^.RipPixel(330,120);
  572.   RIP^.RipPixel(318,110);
  573.   RIP^.RipColor(6);
  574.   RIP^.RipPixel(339,111);
  575.   RIP^.RipLineStyle(1,0,1);
  576.   RIP^.RipPixel(338,111);
  577.   RIP^.RipLine(338,114,357,114);
  578.   RIP^.RipGetImage(338,113,359,117);
  579.   RIP^.RipPutImage(337,110,0);
  580.   RIP^.RipPutImage(278,112,0);
  581.   RIP^.RipPutImage(255,111,0);
  582.   RIP^.RipPixel(230,65);
  583.   RIP^.RipPixel(229,55);
  584.   RIP^.RipPixel(237,57);
  585.   RIP^.RipPixel(395,52);
  586.   RIP^.RipPixel(410,8);
  587.   RIP^.RipPixel(445,59);
  588.   RIP^.RipPixel(502,24);
  589.   RIP^.RipPixel(513,51);
  590.   RIP^.RipPixel(548,26);
  591.   RIP^.RipPixel(595,5);
  592.   RIP^.RipPixel(631,39);
  593.   RIP^.RipColor(13);
  594.   RIP^.RipPixel(231,23);
  595.   RIP^.RipPixel(194,35);
  596.   RIP^.RipPixel(126,0);
  597.   RIP^.RipPixel(49,48);
  598.   RIP^.RipPixel(361,6);
  599.   RIP^.RipPixel(419,34);
  600.   RIP^.RipPixel(506,0);
  601.   RIP^.RipPixel(540,42);
  602.   RIP^.RipPixel(546,42);
  603.   RIP^.RipPixel(544,46);
  604.   RIP^.RipPixel(590,59);
  605.   RIP^.RipPixel(639,17);
  606.   RIP^.RipColor(2);
  607.   RIP^.RipPixel(369,40);
  608.   RIP^.RipPixel(423,23);
  609.   RIP^.RipPixel(248,0);
  610.   RIP^.RipPixel(130,11);
  611.   RIP^.RipPixel(48,2);
  612.   RIP^.RipPixel(90,56);
  613.   RIP^.RipPixel(164,76);
  614.   RIP^.RipPixel(359,75);
  615.   RIP^.RipPixel(485,82);
  616.   RIP^.RipPixel(503,71);
  617.   RIP^.RipPixel(482,0);
  618.   RIP^.RipPixel(637,10);
  619.   RIP^.RipColor(0);
  620.   RIP^.RipFontStyle(0,0,1);
  621.   RIP^.RipTextXY(517,298,'Ron Millar 92');
  622.   RIP^.RipTextXY(517,308,'"ICE"');
  623.   RIP^.RipTextXY(517,318,' ');
  624.   RIP^.RipTextWindow(0,40,79,42,True,0);
  625.   RIP^.RipNoMore;
  626. end;
  627.